home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmpvar.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  31KB  |  1,321 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpvar.h"
  5. init_cmpvar(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[3],VV[4],VV[2]));
  10.     (void)(putprop(VV[5],VV[6],VV[7]));
  11.     (void)(putprop(VV[5],VV[8],VV[2]));
  12.     (void)(putprop(VV[9],VV[10],VV[7]));
  13.     (void)(putprop(VV[9],VV[11],VV[2]));
  14.     (void)(putprop(VV[12],VV[13],VV[14]));
  15.     (void)(putprop(VV[12],VV[15],VV[2]));
  16.     (void)(putprop(VV[0],VV[16],VV[17]));
  17.     (void)(putprop(VV[0],VV[18],VV[19]));
  18.     (void)(putprop(VV[0],VV[20],VV[21]));
  19.     (void)(putprop(VV[0],Ct,VV[22]));
  20.     (void)(putprop(VV[0],VV[23],VV[24]));
  21.     (void)(putprop(VV[0],Cnil,VV[25]));
  22.     (void)(putprop(VV[0],Cnil,VV[26]));
  23.     (void)(putprop(VV[0],Cnil,VV[27]));
  24.     (void)(putprop(VV[0],Cnil,VV[28]));
  25.     MF(VV[29],L18,start,size,data);
  26.     (void)(putprop(VV[29],VV[30],VV[31]));
  27.     (void)(putprop(VV[29],VV[32],VV[33]));
  28.     (void)(remprop(VV[29],VV[34]));
  29.     (void)(remprop(VV[29],VV[35]));
  30.     (void)(putprop(VV[29],Cnil,VV[36]));
  31.     MF(VV[37],L25,start,size,data);
  32.     (void)(putprop(VV[37],VV[38],VV[31]));
  33.     (void)(putprop(VV[37],VV[39],VV[33]));
  34.     (void)(remprop(VV[37],VV[34]));
  35.     (void)(remprop(VV[37],VV[35]));
  36.     (void)(putprop(VV[37],Cnil,VV[36]));
  37.     MF(VV[40],L32,start,size,data);
  38.     (void)(putprop(VV[40],VV[41],VV[31]));
  39.     (void)(putprop(VV[40],VV[42],VV[33]));
  40.     (void)(remprop(VV[40],VV[34]));
  41.     (void)(remprop(VV[40],VV[35]));
  42.     (void)(putprop(VV[40],Cnil,VV[36]));
  43.     MF(VV[43],L39,start,size,data);
  44.     (void)(putprop(VV[43],VV[44],VV[31]));
  45.     (void)(putprop(VV[43],VV[45],VV[33]));
  46.     (void)(remprop(VV[43],VV[34]));
  47.     (void)(remprop(VV[43],VV[35]));
  48.     (void)(putprop(VV[43],Cnil,VV[36]));
  49.     MF(VV[46],L46,start,size,data);
  50.     (void)(putprop(VV[46],VV[47],VV[31]));
  51.     (void)(putprop(VV[46],VV[48],VV[33]));
  52.     (void)(remprop(VV[46],VV[34]));
  53.     (void)(remprop(VV[46],VV[35]));
  54.     (void)(putprop(VV[46],Cnil,VV[36]));
  55.     MF(VV[49],L53,start,size,data);
  56.     (void)(putprop(VV[49],VV[50],VV[31]));
  57.     (void)(putprop(VV[49],VV[51],VV[33]));
  58.     (void)(remprop(VV[49],VV[34]));
  59.     (void)(remprop(VV[49],VV[35]));
  60.     (void)(putprop(VV[49],Cnil,VV[36]));
  61.     (void)(putprop(VV[0],VV[52],VV[53]));
  62.     MF(VV[103],L61,start,size,data);
  63.     (void)(putprop(VV[0],VV[54],VV[55]));
  64.     MF(VV[104],L63,start,size,data);
  65.     MF(VV[105],L64,start,size,data);
  66.     (void)(putprop(VV[0],Cnil,VV[56]));
  67.     VV[57]->s.s_stype=(short)stp_special;
  68.     if(VV[57]->s.s_dbind == OBJNULL){
  69.     VV[57]->s.s_dbind = Cnil;}
  70.     VV[58]->s.s_stype=(short)stp_special;
  71.     if(VV[58]->s.s_dbind == OBJNULL){
  72.     VV[58]->s.s_dbind = Cnil;}
  73.     VV[59]->s.s_stype=(short)stp_special;
  74.     if(VV[59]->s.s_dbind == OBJNULL){
  75.     VV[59]->s.s_dbind = Cnil;}
  76.     MF(VV[106],L67,start,size,data);
  77.     MF(VV[107],L68,start,size,data);
  78.     MF(VV[108],L69,start,size,data);
  79.     MF(VV[109],L70,start,size,data);
  80.     MF(VV[110],L71,start,size,data);
  81.     MF(VV[1],L72,start,size,data);
  82.     MF(VV[4],L73,start,size,data);
  83.     MF(VV[18],L74,start,size,data);
  84.     MF(VV[16],L75,start,size,data);
  85.     MF(VV[111],L76,start,size,data);
  86.     MF(VV[112],L77,start,size,data);
  87.     MF(VV[6],L78,start,size,data);
  88.     MF(VV[113],L79,start,size,data);
  89.     MF(VV[8],L80,start,size,data);
  90.     MF(VV[10],L81,start,size,data);
  91.     MF(VV[11],L82,start,size,data);
  92.     MF(VV[13],L83,start,size,data);
  93.     MF(VV[15],L84,start,size,data);
  94.     vs_top=vs_base=base;
  95. }
  96. /*    function definition for VAR-NAME    */
  97.  
  98. static L18()
  99. {    register object *base=vs_base;
  100.     register object *sup=base+VM3;
  101.     vs_reserve(VM3);
  102.     check_arg(1);
  103.     vs_top=sup;
  104. TTL:;
  105.     base[1]= structure_ref(base[0],VV[0],0);
  106.     vs_top=(vs_base=base+1)+1;
  107.     return;
  108. }
  109. /*    function definition for VAR-KIND    */
  110.  
  111. static L25()
  112. {    register object *base=vs_base;
  113.     register object *sup=base+VM4;
  114.     vs_reserve(VM4);
  115.     check_arg(1);
  116.     vs_top=sup;
  117. TTL:;
  118.     base[1]= structure_ref(base[0],VV[0],1);
  119.     vs_top=(vs_base=base+1)+1;
  120.     return;
  121. }
  122. /*    function definition for VAR-REF    */
  123.  
  124. static L32()
  125. {    register object *base=vs_base;
  126.     register object *sup=base+VM5;
  127.     vs_reserve(VM5);
  128.     check_arg(1);
  129.     vs_top=sup;
  130. TTL:;
  131.     base[1]= structure_ref(base[0],VV[0],2);
  132.     vs_top=(vs_base=base+1)+1;
  133.     return;
  134. }
  135. /*    function definition for VAR-REF-CCB    */
  136.  
  137. static L39()
  138. {    register object *base=vs_base;
  139.     register object *sup=base+VM6;
  140.     vs_reserve(VM6);
  141.     check_arg(1);
  142.     vs_top=sup;
  143. TTL:;
  144.     base[1]= structure_ref(base[0],VV[0],3);
  145.     vs_top=(vs_base=base+1)+1;
  146.     return;
  147. }
  148. /*    function definition for VAR-LOC    */
  149.  
  150. static L46()
  151. {    register object *base=vs_base;
  152.     register object *sup=base+VM7;
  153.     vs_reserve(VM7);
  154.     check_arg(1);
  155.     vs_top=sup;
  156. TTL:;
  157.     base[1]= structure_ref(base[0],VV[0],4);
  158.     vs_top=(vs_base=base+1)+1;
  159.     return;
  160. }
  161. /*    function definition for VAR-TYPE    */
  162.  
  163. static L53()
  164. {    register object *base=vs_base;
  165.     register object *sup=base+VM8;
  166.     vs_reserve(VM8);
  167.     check_arg(1);
  168.     vs_top=sup;
  169. TTL:;
  170.     base[1]= structure_ref(base[0],VV[0],5);
  171.     vs_top=(vs_base=base+1)+1;
  172.     return;
  173. }
  174. /*    function definition for MAKE-VAR    */
  175.  
  176. static L61()
  177. {    register object *base=vs_base;
  178.     register object *sup=base+VM9;
  179.     vs_reserve(VM9);
  180.     parse_key(vs_base,FALSE,FALSE,6,VV[60],VV[70],VV[114],VV[115],VV[72],VV[73]);
  181.     vs_top=sup;
  182.     if(base[11]==Cnil){
  183.     base[5]= Ct;
  184.     }else{}
  185.     base[12]= VV[0];
  186.     base[13]= base[0];
  187.     base[14]= base[1];
  188.     base[15]= base[2];
  189.     base[16]= base[3];
  190.     base[17]= base[4];
  191.     base[18]= base[5];
  192.     vs_top=(vs_base=base+12)+7;
  193.     siLmake_structure();
  194.     return;
  195. }
  196. /*    function definition for COPY-VAR    */
  197.  
  198. static L63()
  199. {    register object *base=vs_base;
  200.     register object *sup=base+VM10;
  201.     vs_reserve(VM10);
  202.     check_arg(1);
  203.     vs_top=sup;
  204. TTL:;
  205.     base[1]= base[0];
  206.     base[2]= VV[0];
  207.     symlispcall_no_event(VV[116],base+1,2);
  208.     return;
  209. }
  210. /*    function definition for VAR-P    */
  211.  
  212. static L64()
  213. {    register object *base=vs_base;
  214.     register object *sup=base+VM11;
  215.     vs_reserve(VM11);
  216.     check_arg(1);
  217.     vs_top=sup;
  218. TTL:;
  219.     base[1]= base[0];
  220.     vs_top=(vs_base=base+1)+1;
  221.     siLstructurep();
  222.     vs_top=sup;
  223.     if((vs_base[0])!=Cnil){
  224.     goto T71;}
  225.     base[1]= Cnil;
  226.     vs_top=(vs_base=base+1)+1;
  227.     return;
  228. T71:;
  229.     base[2]= base[0];
  230.     vs_top=(vs_base=base+2)+1;
  231.     siLstructure_name();
  232.     vs_top=sup;
  233.     base[1]= vs_base[0];
  234. T77:;
  235.     if((base[1])!=Cnil){
  236.     goto T78;}
  237.     base[2]= Cnil;
  238.     vs_top=(vs_base=base+2)+1;
  239.     return;
  240. T78:;
  241.     if(!(base[1]==VV[0])){
  242.     goto T82;}
  243.     base[2]= Ct;
  244.     vs_top=(vs_base=base+2)+1;
  245.     return;
  246. T82:;
  247.     base[1]= get(base[1],VV[25],Cnil);
  248.     goto T77;
  249. }
  250. /*    function definition for C1MAKE-VAR    */
  251.  
  252. static L67()
  253. {    register object *base=vs_base;
  254.     register object *sup=base+VM12;
  255.     vs_reserve(VM12);
  256.     check_arg(4);
  257.     vs_top=sup;
  258. TTL:;
  259.     base[4]= Cnil;
  260.     base[6]= VV[60];
  261.     base[7]= base[0];
  262.     vs_top=(vs_base=base+6)+2;
  263.     L61();
  264.     vs_top=sup;
  265.     base[5]= vs_base[0];
  266.     if(type_of(base[0])==t_symbol){
  267.     goto T92;}
  268.     base[6]= VV[61];
  269.     base[7]= base[0];
  270.     (void)simple_symlispcall_no_event(VV[117],base+6,2);
  271. T92:;
  272.     base[6]= base[0];
  273.     vs_top=(vs_base=base+6)+1;
  274.     Lconstantp();
  275.     vs_top=sup;
  276.     if((vs_base[0])==Cnil){
  277.     goto T97;}
  278.     base[6]= VV[62];
  279.     base[7]= base[0];
  280.     (void)simple_symlispcall_no_event(VV[117],base+6,2);
  281. T97:;
  282.     {object x= base[0],V1= base[1];
  283.     while(!endp(V1))
  284.     if(eql(x,V1->c.c_car)){
  285.     goto T104;
  286.     }else V1=V1->c.c_cdr;}
  287.     base[6]= base[0];
  288.     vs_top=(vs_base=base+6)+1;
  289.     siLspecialp();
  290.     vs_top=sup;
  291.     if((vs_base[0])==Cnil){
  292.     goto T105;}
  293. T104:;
  294.     structure_set(base[5],VV[0],1,VV[63]);
  295.     base[7]= base[0];
  296.     base[6]= simple_symlispcall_no_event(VV[118],base+7,1);
  297.     structure_set(base[5],VV[0],4,base[6]);
  298.     {object x= base[0],V2= base[3];
  299.     while(!endp(V2))
  300.     if(eql(x,car(V2->c.c_car))){
  301.     base[4]= (V2->c.c_car);
  302.     goto T118;
  303.     }else V2=V2->c.c_cdr;
  304.     base[4]= Cnil;}
  305. T118:;
  306.     if((base[4])==Cnil){
  307.     goto T116;}
  308.     structure_set(base[5],VV[0],5,cdr(base[4]));
  309.     goto T114;
  310. T116:;
  311.     base[4]= get(base[0],VV[64],Cnil);
  312.     if((base[4])==Cnil){
  313.     goto T114;}
  314.     structure_set(base[5],VV[0],5,base[4]);
  315. T114:;
  316.     setq(VV[59],Ct);
  317.     goto T103;
  318. T105:;
  319.     {object x= base[0],V3= base[3];
  320.     while(!endp(V3))
  321.     if(eql(x,car(V3->c.c_car))){
  322.     base[4]= (V3->c.c_car);
  323.     goto T126;
  324.     }else V3=V3->c.c_cdr;
  325.     base[4]= Cnil;}
  326. T126:;
  327.     if((base[4])==Cnil){
  328.     goto T123;}
  329.     if(!(cdr(base[4])==VV[65])){
  330.     goto T128;}
  331.     structure_set(base[5],VV[0],4,VV[65]);
  332.     goto T123;
  333. T128:;
  334.     structure_set(base[5],VV[0],5,cdr(base[4]));
  335. T123:;
  336.     structure_set(base[5],VV[0],1,VV[66]);
  337. T103:;
  338.     {object x= base[0],V4= base[2];
  339.     while(!endp(V4))
  340.     if(eql(x,V4->c.c_car)){
  341.     goto T132;
  342.     }else V4=V4->c.c_cdr;
  343.     goto T130;}
  344. T132:;
  345.     structure_set(base[5],VV[0],2,VV[67]);
  346. T130:;
  347.     vs_top=(vs_base=base+5)+1;
  348.     return;
  349. }
  350. /*    function definition for CHECK-VREF    */
  351.  
  352. static L68()
  353. {    register object *base=vs_base;
  354.     register object *sup=base+VM13;
  355.     vs_reserve(VM13);
  356.     check_arg(1);
  357.     vs_top=sup;
  358. TTL:;
  359.     if(!(structure_ref(base[0],VV[0],1)==VV[66])){
  360.     goto T134;}
  361.     if((structure_ref(base[0],VV[0],2))!=Cnil){
  362.     goto T134;}
  363.     if((structure_ref(base[0],VV[0],3))!=Cnil){
  364.     goto T134;}
  365.     base[1]= VV[68];
  366.     base[2]= structure_ref(base[0],VV[0],0);
  367.     symlispcall_no_event(VV[119],base+1,2);
  368.     return;
  369. T134:;
  370.     base[1]= Cnil;
  371.     vs_top=(vs_base=base+1)+1;
  372.     return;
  373. }
  374. /*    function definition for C1VAR    */
  375.  
  376. static L69()
  377. {    register object *base=vs_base;
  378.     register object *sup=base+VM14;
  379.     vs_reserve(VM14);
  380.     check_arg(1);
  381.     vs_top=sup;
  382. TTL:;
  383.     base[1]= simple_symlispcall_no_event(VV[120],base+3,0);
  384.     base[3]= base[0];
  385.     vs_top=(vs_base=base+3)+1;
  386.     L70();
  387.     vs_top=sup;
  388.     base[2]= vs_base[0];
  389.     base[3]= make_cons(car(base[2]),structure_ref(base[1],VV[69],1));
  390.     structure_set(base[1],VV[69],1,base[3]);
  391.     structure_set(base[1],VV[69],2,structure_ref(car(base[2]),VV[0],5));
  392.     base[3]= list(3,VV[0],base[1],base[2]);
  393.     vs_top=(vs_base=base+3)+1;
  394.     return;
  395. }
  396. /*    function definition for C1VREF    */
  397.  
  398. static L70()
  399. {    register object *base=vs_base;
  400.     register object *sup=base+VM15;
  401.     vs_reserve(VM15);
  402.     check_arg(1);
  403.     vs_top=sup;
  404. TTL:;
  405.     {object V5;
  406.     object V6;
  407.     V5= Cnil;
  408.     V6= Cnil;
  409.     {object V7;
  410.     base[1]= symbol_value(VV[57]);
  411.     V7= car(base[1]);
  412. T152:;
  413.     if(!(endp(base[1]))){
  414.     goto T153;}
  415.     base[3]= base[0];
  416.     vs_top=(vs_base=base+3)+1;
  417.     L76();
  418.     vs_top=sup;
  419.     base[2]= vs_base[0];
  420.     if((base[2])!=Cnil){
  421.     goto T158;}
  422.     base[3]= base[0];
  423.     vs_top=(vs_base=base+3)+1;
  424.     siLspecialp();
  425.     vs_top=sup;
  426.     if((vs_base[0])!=Cnil){
  427.     goto T161;}
  428.     base[3]= base[0];
  429.     (void)simple_symlispcall_no_event(VV[121],base+3,1);
  430. T161:;
  431.     base[3]= VV[60];
  432.     base[4]= base[0];
  433.     base[5]= VV[70];
  434.     base[6]= VV[71];
  435.     base[7]= VV[72];
  436.     base[9]= base[0];
  437.     base[8]= simple_symlispcall_no_event(VV[118],base+9,1);
  438.     base[9]= VV[73];
  439.     base[11]= get(base[0],VV[64],Cnil);
  440.     if(base[11]==Cnil)goto T177;
  441.     base[10]= base[11];
  442.     goto T176;
  443. T177:;
  444.     base[10]= Ct;
  445. T176:;
  446.     vs_top=(vs_base=base+3)+8;
  447.     L61();
  448.     vs_top=sup;
  449.     base[2]= vs_base[0];
  450.     setq(VV[58],make_cons(base[2],symbol_value(VV[58])));
  451. T158:;
  452.     base[3]= list(2,base[2],(V5));
  453.     vs_top=(vs_base=base+3)+1;
  454.     return;
  455. T153:;
  456.     if(!((V7)==VV[74])){
  457.     goto T183;}
  458.     V5= Ct;
  459.     goto T181;
  460. T183:;
  461.     if(!((V7)==VV[75])){
  462.     goto T187;}
  463.     V6= Ct;
  464.     goto T181;
  465. T187:;
  466.     if(!(structure_ref((V7),VV[0],0)==base[0])){
  467.     goto T181;}
  468.     if(!(structure_ref((V7),VV[0],2)==VV[67])){
  469.     goto T192;}
  470.     base[2]= VV[76];
  471.     base[3]= base[0];
  472.     (void)simple_symlispcall_no_event(VV[119],base+2,2);
  473.     structure_set((V7),VV[0],2,Ct);
  474. T192:;
  475.     if(((V5))==Cnil){
  476.     goto T200;}
  477.     structure_set((V7),VV[0],3,Ct);
  478.     goto T198;
  479. T200:;
  480.     if(((V6))==Cnil){
  481.     goto T203;}
  482.     if(!(structure_ref((V7),VV[0],1)==VV[66])){
  483.     goto T205;}
  484.     structure_set((V7),VV[0],4,VV[77]);
  485. T205:;
  486.     structure_set((V7),VV[0],2,Ct);
  487.     goto T198;
  488. T203:;
  489.     structure_set((V7),VV[0],2,Ct);
  490. T198:;
  491.     base[2]= list(2,(V7),(V5));
  492.     vs_top=(vs_base=base+2)+1;
  493.     return;
  494. T181:;
  495.     base[1]= cdr(base[1]);
  496.     V7= car(base[1]);
  497.     goto T152;}}
  498. }
  499. /*    function definition for C2VAR-KIND    */
  500.  
  501. static L71()
  502. {    register object *base=vs_base;
  503.     register object *sup=base+VM16;
  504.     vs_reserve(VM16);
  505.     check_arg(1);
  506.     vs_top=sup;
  507. TTL:;
  508.     if(!(structure_ref(base[0],VV[0],1)==VV[66])){
  509.     goto T214;}
  510.     if((structure_ref(base[0],VV[0],3))!=Cnil){
  511.     goto T214;}
  512.     if(structure_ref(base[0],VV[0],4)==VV[77]){
  513.     goto T214;}
  514.     if(!(structure_ref(base[0],VV[0],4)==VV[65])){
  515.     goto T221;}
  516.     base[1]= VV[65];
  517.     vs_top=(vs_base=base+1)+1;
  518.     return;
  519. T221:;
  520.     {object V8;
  521.     V8= structure_ref(base[0],VV[0],5);
  522.     base[1]= VV[78];
  523.     base[2]= (V8);
  524.     if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
  525.     goto T225;}
  526.     base[1]= VV[78];
  527.     vs_top=(vs_base=base+1)+1;
  528.     return;
  529. T225:;
  530.     base[1]= VV[79];
  531.     base[2]= (V8);
  532.     if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
  533.     goto T230;}
  534.     base[1]= VV[79];
  535.     vs_top=(vs_base=base+1)+1;
  536.     return;
  537. T230:;
  538.     base[1]= VV[80];
  539.     base[2]= (V8);
  540.     if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
  541.     goto T235;}
  542.     base[1]= VV[80];
  543.     vs_top=(vs_base=base+1)+1;
  544.     return;
  545. T235:;
  546.     base[1]= VV[81];
  547.     base[2]= (V8);
  548.     if((simple_symlispcall_no_event(VV[122],base+1,2))==Cnil){
  549.     goto T240;}
  550.     base[1]= VV[81];
  551.     vs_top=(vs_base=base+1)+1;
  552.     return;
  553. T240:;
  554.     base[1]= Cnil;
  555.     vs_top=(vs_base=base+1)+1;
  556.     return;}
  557. T214:;
  558.     base[1]= Cnil;
  559.     vs_top=(vs_base=base+1)+1;
  560.     return;
  561. }
  562. /*    function definition for C2VAR    */
  563.  
  564. static L72()
  565. {    register object *base=vs_base;
  566.     register object *sup=base+VM17;
  567.     vs_reserve(VM17);
  568.     check_arg(1);
  569.     vs_top=sup;
  570. TTL:;
  571.     base[1]= make_cons(VV[0],base[0]);
  572.     symlispcall_no_event(VV[123],base+1,1);
  573.     return;
  574. }
  575. /*    function definition for C2LOCATION    */
  576.  
  577. static L73()
  578. {    register object *base=vs_base;
  579.     register object *sup=base+VM18;
  580.     vs_reserve(VM18);
  581.     check_arg(1);
  582.     vs_top=sup;
  583. TTL:;
  584.     base[1]= base[0];
  585.     symlispcall_no_event(VV[123],base+1,1);
  586.     return;
  587. }
  588. /*    function definition for WT-VAR    */
  589.  
  590. static L74()
  591. {    register object *base=vs_base;
  592.     register object *sup=base+VM19;
  593.     vs_reserve(VM19);
  594.     check_arg(2);
  595.     vs_top=sup;
  596. TTL:;
  597.     {object V9= structure_ref(base[0],VV[0],1);
  598.     if((V9!= VV[66]))goto T246;
  599.     if((base[1])==Cnil){
  600.     goto T248;}
  601.     base[2]= structure_ref(base[0],VV[0],3);
  602.     symlispcall_no_event(VV[124],base+2,1);
  603.     return;
  604. T248:;
  605.     if((structure_ref(base[0],VV[0],3))==Cnil){
  606.     goto T252;}
  607.     base[2]= structure_ref(base[0],VV[0],2);
  608.     symlispcall_no_event(VV[125],base+2,1);
  609.     return;
  610. T252:;
  611.     base[2]= structure_ref(base[0],VV[0],2);
  612.     symlispcall_no_event(VV[126],base+2,1);
  613.     return;
  614. T246:;
  615.     if((V9!= VV[63]))goto T256;
  616.     princ_str("(VV[",VV[82]);
  617.     base[2]= structure_ref(base[0],VV[0],4);
  618.     (void)simple_symlispcall_no_event(VV[127],base+2,1);
  619.     princ_str("]->s.s_dbind)",VV[82]);
  620.     base[2]= Cnil;
  621.     vs_top=(vs_base=base+2)+1;
  622.     return;
  623. T256:;
  624.     if((V9!= VV[128]))goto T261;
  625.     base[2]= structure_ref(base[0],VV[0],4);
  626.     (void)simple_symlispcall_no_event(VV[127],base+2,1);
  627.     base[2]= Cnil;
  628.     vs_top=(vs_base=base+2)+1;
  629.     return;
  630. T261:;
  631.     if((V9!= VV[71]))goto T264;
  632.     if((symbol_value(VV[83]))==Cnil){
  633.     goto T266;}
  634.     princ_str("symbol_value(VV[",VV[82]);
  635.     base[2]= structure_ref(base[0],VV[0],4);
  636.     (void)simple_symlispcall_no_event(VV[127],base+2,1);
  637.     princ_str("])",VV[82]);
  638.     base[2]= Cnil;
  639.     vs_top=(vs_base=base+2)+1;
  640.     return;
  641. T266:;
  642.     princ_str("(VV[",VV[82]);
  643.     base[2]= structure_ref(base[0],VV[0],4);
  644.     (void)simple_symlispcall_no_event(VV[127],base+2,1);
  645.     princ_str("]->s.s_dbind)",VV[82]);
  646.     base[2]= Cnil;
  647.     vs_top=(vs_base=base+2)+1;
  648.     return;
  649. T264:;
  650.     {object V10= structure_ref(base[0],VV[0],1);
  651.     if((V10!= VV[78]))goto T277;
  652.     if(!(number_compare(small_fixnum(0),symbol_value(VV[84]))==0)){
  653.     goto T278;}
  654.     princ_str("CMP",VV[82]);
  655. T278:;
  656.     princ_str("make_fixnum",VV[82]);
  657.     goto T276;
  658. T277:;
  659.     if((V10!= VV[79]))goto T283;
  660.     princ_str("code_char",VV[82]);
  661.     goto T276;
  662. T283:;
  663.     if((V10!= VV[80]))goto T285;
  664.     princ_str("make_longfloat",VV[82]);
  665.     goto T276;
  666. T285:;
  667.     if((V10!= VV[81]))goto T287;
  668.     princ_str("make_shortfloat",VV[82]);
  669.     goto T276;
  670. T287:;
  671.     if((V10!= VV[65]))goto T289;
  672.     goto T276;
  673. T289:;
  674.     (void)simple_symlispcall_no_event(VV[129],base+2,0);}
  675. T276:;
  676.     princ_str("(V",VV[82]);
  677.     base[2]= structure_ref(base[0],VV[0],4);
  678.     (void)simple_symlispcall_no_event(VV[127],base+2,1);
  679.     princ_char(41,VV[82]);
  680.     base[2]= Cnil;
  681.     vs_top=(vs_base=base+2)+1;
  682.     return;}
  683. }
  684. /*    function definition for SET-VAR    */
  685.  
  686. static L75()
  687. {    register object *base=vs_base;
  688.     register object *sup=base+VM20;
  689.     vs_reserve(VM20);
  690.     check_arg(3);
  691.     vs_top=sup;
  692. TTL:;
  693.     if(!(type_of(base[0])==t_cons)){
  694.     goto T294;}
  695.     if(!(car(base[0])==VV[0])){
  696.     goto T294;}
  697.     if(!(cadr(base[0])==base[1])){
  698.     goto T294;}
  699.     if(caddr(base[0])==base[2]){
  700.     goto T295;}
  701. T294:;
  702.     {object V11= structure_ref(base[1],VV[0],1);
  703.     if((V11!= VV[66]))goto T303;
  704.     princ_str("\n    ",VV[82]);
  705.     if((base[2])==Cnil){
  706.     goto T307;}
  707.     base[3]= structure_ref(base[1],VV[0],3);
  708.     (void)simple_symlispcall_no_event(VV[124],base+3,1);
  709.     goto T305;
  710. T307:;
  711.     if((structure_ref(base[1],VV[0],3))==Cnil){
  712.     goto T311;}
  713.     base[3]= structure_ref(base[1],VV[0],2);
  714.     (void)simple_symlispcall_no_event(VV[125],base+3,1);
  715.     goto T305;
  716. T311:;
  717.     base[3]= structure_ref(base[1],VV[0],2);
  718.     (void)simple_symlispcall_no_event(VV[126],base+3,1);
  719. T305:;
  720.     princ_str("= ",VV[82]);
  721.     base[3]= base[0];
  722.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  723.     princ_char(59,VV[82]);
  724.     base[3]= Cnil;
  725.     vs_top=(vs_base=base+3)+1;
  726.     return;
  727. T303:;
  728.     if((V11!= VV[63]))goto T319;
  729.     princ_str("\n    (VV[",VV[82]);
  730.     base[3]= structure_ref(base[1],VV[0],4);
  731.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  732.     princ_str("]->s.s_dbind)= ",VV[82]);
  733.     base[3]= base[0];
  734.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  735.     princ_char(59,VV[82]);
  736.     base[3]= Cnil;
  737.     vs_top=(vs_base=base+3)+1;
  738.     return;
  739. T319:;
  740.     if((V11!= VV[71]))goto T327;
  741.     if((symbol_value(VV[83]))==Cnil){
  742.     goto T329;}
  743.     princ_str("\n    setq(VV[",VV[82]);
  744.     base[3]= structure_ref(base[1],VV[0],4);
  745.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  746.     princ_str("],",VV[82]);
  747.     base[3]= base[0];
  748.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  749.     princ_str(");",VV[82]);
  750.     base[3]= Cnil;
  751.     vs_top=(vs_base=base+3)+1;
  752.     return;
  753. T329:;
  754.     princ_str("\n    (VV[",VV[82]);
  755.     base[3]= structure_ref(base[1],VV[0],4);
  756.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  757.     princ_str("]->s.s_dbind)= ",VV[82]);
  758.     base[3]= base[0];
  759.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  760.     princ_char(59,VV[82]);
  761.     base[3]= Cnil;
  762.     vs_top=(vs_base=base+3)+1;
  763.     return;
  764. T327:;
  765.     princ_str("\n    V",VV[82]);
  766.     base[3]= structure_ref(base[1],VV[0],4);
  767.     (void)simple_symlispcall_no_event(VV[127],base+3,1);
  768.     princ_str("= ",VV[82]);
  769.     {object V12= structure_ref(base[1],VV[0],1);
  770.     if((V12!= VV[78]))goto T351;
  771.     base[3]= base[0];
  772.     (void)simple_symlispcall_no_event(VV[130],base+3,1);
  773.     goto T350;
  774. T351:;
  775.     if((V12!= VV[79]))goto T353;
  776.     base[3]= base[0];
  777.     (void)simple_symlispcall_no_event(VV[131],base+3,1);
  778.     goto T350;
  779. T353:;
  780.     if((V12!= VV[80]))goto T355;
  781.     base[3]= base[0];
  782.     (void)simple_symlispcall_no_event(VV[132],base+3,1);
  783.     goto T350;
  784. T355:;
  785.     if((V12!= VV[81]))goto T357;
  786.     base[3]= base[0];
  787.     (void)simple_symlispcall_no_event(VV[133],base+3,1);
  788.     goto T350;
  789. T357:;
  790.     if((V12!= VV[65]))goto T359;
  791.     base[3]= base[0];
  792.     (void)simple_symlispcall_no_event(VV[19],base+3,1);
  793.     goto T350;
  794. T359:;
  795.     (void)simple_symlispcall_no_event(VV[129],base+3,0);}
  796. T350:;
  797.     princ_char(59,VV[82]);
  798.     base[3]= Cnil;
  799.     vs_top=(vs_base=base+3)+1;
  800.     return;}
  801. T295:;
  802.     base[3]= Cnil;
  803.     vs_top=(vs_base=base+3)+1;
  804.     return;
  805. }
  806. /*    function definition for SCH-GLOBAL    */
  807.  
  808. static L76()
  809. {    register object *base=vs_base;
  810.     register object *sup=base+VM21;
  811.     vs_reserve(VM21);
  812.     check_arg(1);
  813.     vs_top=sup;
  814. TTL:;
  815.     {object V13;
  816.     base[1]= symbol_value(VV[58]);
  817.     V13= car(base[1]);
  818. T364:;
  819.     if(!(endp(base[1]))){
  820.     goto T365;}
  821.     base[2]= Cnil;
  822.     vs_top=(vs_base=base+2)+1;
  823.     return;
  824. T365:;
  825.     if(!(structure_ref((V13),VV[0],0)==base[0])){
  826.     goto T369;}
  827.     base[2]= (V13);
  828.     vs_top=(vs_base=base+2)+1;
  829.     return;
  830. T369:;
  831.     base[1]= cdr(base[1]);
  832.     V13= car(base[1]);
  833.     goto T364;}
  834. }
  835. /*    function definition for C1ADD-GLOBALS    */
  836.  
  837. static L77()
  838. {    register object *base=vs_base;
  839.     register object *sup=base+VM22;
  840.     vs_reserve(VM22);
  841.     check_arg(1);
  842.     vs_top=sup;
  843. TTL:;
  844.     {object V14;
  845.     object V15;
  846.     V14= base[0];
  847.     V15= car((V14));
  848. T380:;
  849.     if(!(endp((V14)))){
  850.     goto T381;}
  851.     base[1]= Cnil;
  852.     vs_top=(vs_base=base+1)+1;
  853.     return;
  854. T381:;
  855.     base[2]= VV[60];
  856.     base[3]= (V15);
  857.     base[4]= VV[70];
  858.     base[5]= VV[71];
  859.     base[6]= VV[72];
  860.     base[8]= (V15);
  861.     base[7]= simple_symlispcall_no_event(VV[118],base+8,1);
  862.     base[8]= VV[73];
  863.     base[10]= get((V15),VV[64],Cnil);
  864.     if((base[10])==Cnil){
  865.     goto T399;}
  866.     base[9]= base[10];
  867.     goto T396;
  868. T399:;
  869.     base[9]= Ct;
  870. T396:;
  871.     vs_top=(vs_base=base+2)+8;
  872.     L61();
  873.     vs_top=sup;
  874.     base[1]= vs_base[0];
  875.     setq(VV[57],make_cons(base[1],symbol_value(VV[57])));
  876.     V14= cdr((V14));
  877.     V15= car((V14));
  878.     goto T380;}
  879. }
  880. /*    function definition for C1SETQ    */
  881.  
  882. static L78()
  883. {    register object *base=vs_base;
  884.     register object *sup=base+VM23;
  885.     vs_reserve(VM23);
  886.     check_arg(1);
  887.     vs_top=sup;
  888. TTL:;
  889.     if(!(endp(base[0]))){
  890.     goto T407;}
  891.     symlispcall_no_event(VV[134],base+1,0);
  892.     return;
  893. T407:;
  894.     if(!(endp(cdr(base[0])))){
  895.     goto T410;}
  896.     base[1]= VV[5];
  897.     base[2]= VV[85];
  898.     base[3]= VV[86];
  899.     symlispcall_no_event(VV[135],base+1,3);
  900.     return;
  901. T410:;
  902.     if(!(endp(cddr(base[0])))){
  903.     goto T416;}
  904.     base[1]= car(base[0]);
  905.     base[2]= cadr(base[0]);
  906.     vs_top=(vs_base=base+1)+2;
  907.     L79();
  908.     return;
  909. T416:;
  910.     {object V16;
  911.     V16= base[0];
  912.     base[1]= Cnil;
  913. T422:;
  914.     if(!(endp((V16)))){
  915.     goto T423;}
  916.     base[3]= reverse(base[1]);
  917.     base[2]= make_cons(VV[87],base[3]);
  918.     symlispcall_no_event(VV[136],base+2,1);
  919.     return;
  920. T423:;
  921.     if(!(endp(cdr((V16))))){
  922.     goto T428;}
  923.     base[2]= VV[88];
  924.     base[3]= car((V16));
  925.     (void)simple_symlispcall_no_event(VV[117],base+2,2);
  926. T428:;
  927.     base[2]= list(3,VV[5],car((V16)),cadr((V16)));
  928.     base[1]= make_cons(base[2],base[1]);
  929.     V16= cddr((V16));
  930.     goto T422;}
  931. }
  932. /*    function definition for C1SETQ1    */
  933.  
  934. static L79()
  935. {    register object *base=vs_base;
  936.     register object *sup=base+VM24;
  937.     vs_reserve(VM24);
  938.     check_arg(2);
  939.     vs_top=sup;
  940. TTL:;
  941.     base[2]= simple_symlispcall_no_event(VV[120],base+3,0);
  942.     base[3]= Cnil;
  943.     base[4]= Cnil;
  944.     base[5]= Cnil;
  945.     if(type_of(base[0])==t_symbol){
  946.     goto T439;}
  947.     base[6]= VV[89];
  948.     base[7]= base[0];
  949.     (void)simple_symlispcall_no_event(VV[117],base+6,2);
  950. T439:;
  951.     base[6]= base[0];
  952.     vs_top=(vs_base=base+6)+1;
  953.     Lconstantp();
  954.     vs_top=sup;
  955.     if((vs_base[0])==Cnil){
  956.     goto T444;}
  957.     base[6]= VV[90];
  958.     base[7]= base[0];
  959.     (void)simple_symlispcall_no_event(VV[117],base+6,2);
  960. T444:;
  961.     base[6]= base[0];
  962.     vs_top=(vs_base=base+6)+1;
  963.     L70();
  964.     vs_top=sup;
  965.     base[5]= vs_base[0];
  966.     base[6]= make_cons(car(base[5]),structure_ref(base[2],VV[69],0));
  967.     structure_set(base[2],VV[69],0,base[6]);
  968.     base[6]= base[1];
  969.     base[4]= simple_symlispcall_no_event(VV[136],base+6,1);
  970.     base[6]= base[2];
  971.     base[7]= cadr(base[4]);
  972.     (void)simple_symlispcall_no_event(VV[137],base+6,2);
  973.     base[6]= structure_ref(car(base[5]),VV[0],5);
  974.     base[7]= structure_ref(cadr(base[4]),VV[69],2);
  975.     base[3]= simple_symlispcall_no_event(VV[138],base+6,2);
  976.     if((base[3])!=Cnil){
  977.     goto T465;}
  978.     base[6]= VV[91];
  979.     base[7]= base[0];
  980.     base[8]= base[1];
  981.     (void)simple_symlispcall_no_event(VV[119],base+6,3);
  982. T465:;
  983.     if(base[3]==structure_ref(cadr(base[4]),VV[69],2)){
  984.     goto T471;}
  985.     base[7]= cadr(base[4]);
  986.     base[6]= simple_symlispcall_no_event(VV[139],base+7,1);
  987.     structure_set(base[6],VV[69],2,base[3]);
  988.     base[4]= listA(3,car(base[4]),base[6],cddr(base[4]));
  989. T471:;
  990.     structure_set(base[2],VV[69],2,base[3]);
  991.     base[6]= list(4,VV[5],base[2],base[5],base[4]);
  992.     vs_top=(vs_base=base+6)+1;
  993.     return;
  994. }
  995. /*    function definition for C2SETQ    */
  996.  
  997. static L80()
  998. {    register object *base=vs_base;
  999.     register object *sup=base+VM25;
  1000.     vs_reserve(VM25);
  1001.     bds_check;
  1002.     check_arg(2);
  1003.     vs_top=sup;
  1004. TTL:;
  1005.     base[2]= make_cons(VV[0],base[0]);
  1006.     bds_bind(VV[92],base[2]);
  1007.     base[3]= base[1];
  1008.     base[4]= simple_symlispcall_no_event(VV[140],base+3,1);
  1009.     bds_unwind1;
  1010.     {object V17= car(base[1]);
  1011.     if((V17!= VV[3]))goto T482;
  1012.     base[2]= caddr(base[1]);
  1013.     vs_top=(vs_base=base+2)+1;
  1014.     L73();
  1015.     return;
  1016. T482:;
  1017.     base[2]= make_cons(VV[0],base[0]);
  1018.     symlispcall_no_event(VV[123],base+2,1);
  1019.     return;}
  1020. }
  1021. /*    function definition for C1PROGV    */
  1022.  
  1023. static L81()
  1024. {    register object *base=vs_base;
  1025.     register object *sup=base+VM26;
  1026.     vs_reserve(VM26);
  1027.     check_arg(1);
  1028.     vs_top=sup;
  1029. TTL:;
  1030.     base[1]= Cnil;
  1031.     base[2]= Cnil;
  1032.     base[3]= simple_symlispcall_no_event(VV[120],base+4,0);
  1033.     if(endp(base[0])){
  1034.     goto T487;}
  1035.     if(!(endp(cdr(base[0])))){
  1036.     goto T486;}
  1037. T487:;
  1038.     base[4]= VV[9];
  1039.     base[5]= VV[85];
  1040.     base[6]= make_fixnum(length(base[0]));
  1041.     (void)simple_symlispcall_no_event(VV[135],base+4,3);
  1042. T486:;
  1043.     base[4]= car(base[0]);
  1044.     base[5]= base[3];
  1045.     base[1]= simple_symlispcall_no_event(VV[141],base+4,2);
  1046.     base[4]= cadr(base[0]);
  1047.     base[5]= base[3];
  1048.     base[2]= simple_symlispcall_no_event(VV[141],base+4,2);
  1049.     base[5]= cddr(base[0]);
  1050.     base[6]= base[3];
  1051.     base[4]= simple_symlispcall_no_event(VV[142],base+5,2);
  1052.     base[5]= list(5,VV[9],base[3],base[1],base[2],base[4]);
  1053.     vs_top=(vs_base=base+5)+1;
  1054.     return;
  1055. }
  1056. /*    function definition for C2PROGV    */
  1057.  
  1058. static L82()
  1059. {    register object *base=vs_base;
  1060.     register object *sup=base+VM27;
  1061.     vs_reserve(VM27);
  1062.     bds_check;
  1063.     check_arg(3);
  1064.     vs_top=sup;
  1065. TTL:;
  1066.     setq(VV[93],number_plus(symbol_value(VV[93]),VV[86]));
  1067.     base[3]= symbol_value(VV[93]);
  1068.     bds_bind(VV[94],symbol_value(VV[94]));
  1069.     princ_str("\n    {object symbols,values;",VV[82]);
  1070.     princ_str("\n    bds_ptr V",VV[82]);
  1071.     base[5]= base[3];
  1072.     (void)simple_symlispcall_no_event(VV[127],base+5,1);
  1073.     princ_str("=bds_top;",VV[82]);
  1074.     (VV[94]->s.s_dbind)= make_cons(base[3],(VV[94]->s.s_dbind));
  1075.     bds_bind(VV[95],symbol_value(VV[95]));
  1076.     base[7]= simple_symlispcall_no_event(VV[143],base+8,0);
  1077.     base[6]= list(2,VV[96],base[7]);
  1078.     bds_bind(VV[92],base[6]);
  1079.     base[7]= base[0];
  1080.     (void)simple_symlispcall_no_event(VV[140],base+7,1);
  1081.     princ_str("\n    symbols= ",VV[82]);
  1082.     base[7]= (VV[92]->s.s_dbind);
  1083.     (void)simple_symlispcall_no_event(VV[127],base+7,1);
  1084.     princ_char(59,VV[82]);
  1085.     bds_unwind1;
  1086.     base[7]= simple_symlispcall_no_event(VV[143],base+8,0);
  1087.     base[6]= list(2,VV[96],base[7]);
  1088.     bds_bind(VV[92],base[6]);
  1089.     base[7]= base[1];
  1090.     (void)simple_symlispcall_no_event(VV[140],base+7,1);
  1091.     princ_str("\n    values= ",VV[82]);
  1092.     base[7]= (VV[92]->s.s_dbind);
  1093.     (void)simple_symlispcall_no_event(VV[127],base+7,1);
  1094.     princ_char(59,VV[82]);
  1095.     bds_unwind1;
  1096.     princ_str("\n    while(!endp(symbols)){",VV[82]);
  1097.     if((symbol_value(VV[83]))==Cnil){
  1098.     goto T537;}
  1099.     princ_str("\n    if(type_of(MMcar(symbols))!=t_symbol)",VV[82]);
  1100.     princ_str("\n    FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[82]);
  1101. T537:;
  1102.     princ_str("\n    if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[82]);
  1103.     princ_str("\n    else{bds_bind(MMcar(symbols),MMcar(values));",VV[82]);
  1104.     princ_str("\n    values=MMcdr(values);}",VV[82]);
  1105.     princ_str("\n    symbols=MMcdr(symbols);}",VV[82]);
  1106.     bds_unwind1;
  1107.     base[5]= base[2];
  1108.     (void)simple_symlispcall_no_event(VV[144],base+5,1);
  1109.     princ_char(125,VV[82]);
  1110.     base[5]= Cnil;
  1111.     vs_top=(vs_base=base+5)+1;
  1112.     bds_unwind1;
  1113.     return;
  1114. }
  1115. /*    function definition for C1PSETQ    */
  1116.  
  1117. static L83()
  1118. {    register object *base=vs_base;
  1119.     register object *sup=base+VM28;
  1120.     vs_reserve(VM28);
  1121.     check_arg(1);
  1122.     vs_top=sup;
  1123. TTL:;
  1124.     base[1]= Cnil;
  1125.     base[2]= Cnil;
  1126.     base[4]= VV[73];
  1127.     base[5]= VV[97];
  1128.     base[3]= simple_symlispcall_no_event(VV[120],base+4,2);
  1129.     {object V18;
  1130.     V18= base[0];
  1131. T559:;
  1132.     if(!(endp((V18)))){
  1133.     goto T560;}
  1134.     goto T556;
  1135. T560:;
  1136.     if(type_of(car((V18)))==t_symbol){
  1137.     goto T564;}
  1138.     base[4]= VV[98];
  1139.     base[5]= car((V18));
  1140.     (void)simple_symlispcall_no_event(VV[117],base+4,2);
  1141. T564:;
  1142.     base[4]= car((V18));
  1143.     vs_top=(vs_base=base+4)+1;
  1144.     Lconstantp();
  1145.     vs_top=sup;
  1146.     if((vs_base[0])==Cnil){
  1147.     goto T569;}
  1148.     base[4]= VV[99];
  1149.     base[5]= car((V18));
  1150.     (void)simple_symlispcall_no_event(VV[117],base+4,2);
  1151. T569:;
  1152.     if(!(endp(cdr((V18))))){
  1153.     goto T575;}
  1154.     base[4]= VV[100];
  1155.     base[5]= car((V18));
  1156.     (void)simple_symlispcall_no_event(VV[117],base+4,2);
  1157. T575:;
  1158.     base[5]= car((V18));
  1159.     vs_top=(vs_base=base+5)+1;
  1160.     L70();
  1161.     vs_top=sup;
  1162.     base[4]= vs_base[0];
  1163.     base[6]= cadr((V18));
  1164.     base[5]= simple_symlispcall_no_event(VV[136],base+6,1);
  1165.     base[7]= structure_ref(car(base[4]),VV[0],5);
  1166.     base[8]= structure_ref(cadr(base[5]),VV[69],2);
  1167.     base[6]= simple_symlispcall_no_event(VV[138],base+7,2);
  1168.     if(equal(base[6],structure_ref(cadr(base[5]),VV[69],2))){
  1169.     goto T588;}
  1170.     base[8]= cadr(base[5]);
  1171.     base[7]= simple_symlispcall_no_event(VV[139],base+8,1);
  1172.     structure_set(base[7],VV[69],2,base[6]);
  1173.     base[5]= listA(3,car(base[5]),base[7],cddr(base[5]));
  1174. T588:;
  1175.     base[1]= make_cons(base[4],base[1]);
  1176.     base[2]= make_cons(base[5],base[2]);
  1177.     base[7]= make_cons(car(base[4]),structure_ref(base[3],VV[69],0));
  1178.     structure_set(base[3],VV[69],0,base[7]);
  1179.     base[7]= base[3];
  1180.     base[8]= cadar(base[2]);
  1181.     (void)simple_symlispcall_no_event(VV[137],base+7,2);
  1182.     V18= cddr((V18));
  1183.     goto T559;}
  1184. T556:;
  1185.     base[4]= reverse(base[1]);
  1186.     base[5]= reverse(base[2]);
  1187.     base[6]= list(4,VV[12],base[3],base[4],base[5]);
  1188.     vs_top=(vs_base=base+6)+1;
  1189.     return;
  1190. }
  1191. /*    function definition for C2PSETQ    */
  1192.  
  1193. static L84()
  1194. {    register object *base=vs_base;
  1195.     register object *sup=base+VM29;
  1196.     vs_reserve(VM29);
  1197.     bds_check;
  1198.     check_arg(2);
  1199.     vs_top=sup;
  1200. TTL:;
  1201.     bds_bind(VV[95],symbol_value(VV[95]));
  1202.     base[3]= Cnil;
  1203.     base[4]= VV[101];
  1204.     {object V19;
  1205.     object V20;
  1206.     V19= base[0];
  1207.     V20= car((V19));
  1208. T610:;
  1209.     if(!(endp((V19)))){
  1210.     goto T611;}
  1211.     goto T606;
  1212. T611:;
  1213.     base[5]= car((V20));
  1214.     base[6]= cdr(base[1]);
  1215.     if((simple_symlispcall_no_event(VV[145],base+5,2))!=Cnil){
  1216.     goto T616;}
  1217.     base[5]= car((V20));
  1218.     base[6]= cdr(base[1]);
  1219.     if((simple_symlispcall_no_event(VV[146],base+5,2))==Cnil){
  1220.     goto T617;}
  1221. T616:;
  1222.     {object V21= caar(base[1]);
  1223.     if((V21!= VV[3]))goto T625;
  1224.     base[5]= make_cons((V20),caddar(base[1]));
  1225.     base[3]= make_cons(base[5],base[3]);
  1226.     goto T615;
  1227. T625:;
  1228.     {object x= structure_ref(car((V20)),VV[0],1),V22= VV[102];
  1229.     while(!endp(V22))
  1230.     if(eql(x,V22->c.c_car)){
  1231.     goto T629;
  1232.     }else V22=V22->c.c_cdr;
  1233.     goto T628;}
  1234. T629:;
  1235.     base[5]= structure_ref(car((V20)),VV[0],1);
  1236.     setq(VV[93],number_plus(symbol_value(VV[93]),VV[86]));
  1237.     base[6]= symbol_value(VV[93]);
  1238.     base[9]= VV[70];
  1239.     base[10]= base[5];
  1240.     base[11]= VV[72];
  1241.     base[12]= base[6];
  1242.     vs_top=(vs_base=base+9)+4;
  1243.     L61();
  1244.     vs_top=sup;
  1245.     base[8]= vs_base[0];
  1246.     base[7]= list(3,VV[0],base[8],Cnil);
  1247.     princ_str("\n    {",VV[82]);
  1248.     base[8]=symbol_function(VV[127]);
  1249.     base[10]= base[5];
  1250.     base[9]= simple_symlispcall_no_event(VV[147],base+10,1);
  1251.     (void)simple_lispcall_no_event(base+8,1);
  1252.     princ_char(86,VV[82]);
  1253.     base[8]= base[6];
  1254.     (void)simple_symlispcall_no_event(VV[127],base+8,1);
  1255.     princ_char(59,VV[82]);
  1256.     base[4]= number_plus(base[4],VV[86]);
  1257.     bds_bind(VV[92],base[7]);
  1258.     base[9]= car(base[1]);
  1259.     base[10]= simple_symlispcall_no_event(VV[140],base+9,1);
  1260.     bds_unwind1;
  1261.     base[8]= make_cons((V20),base[7]);
  1262.     base[3]= make_cons(base[8],base[3]);
  1263.     goto T615;
  1264. T628:;
  1265.     base[6]= simple_symlispcall_no_event(VV[143],base+7,0);
  1266.     base[5]= list(2,VV[96],base[6]);
  1267.     bds_bind(VV[92],base[5]);
  1268.     base[6]= car(base[1]);
  1269.     (void)simple_symlispcall_no_event(VV[140],base+6,1);
  1270.     base[6]= make_cons((V20),(VV[92]->s.s_dbind));
  1271.     base[3]= make_cons(base[6],base[3]);
  1272.     bds_unwind1;
  1273.     goto T615;}
  1274. T617:;
  1275.     base[5]= make_cons(VV[0],(V20));
  1276.     bds_bind(VV[92],base[5]);
  1277.     base[6]= car(base[1]);
  1278.     base[7]= simple_symlispcall_no_event(VV[140],base+6,1);
  1279.     bds_unwind1;
  1280. T615:;
  1281.     base[5]= car(base[1]);
  1282.     base[1]= cdr(base[1]);
  1283.     V19= cdr((V19));
  1284.     V20= car((V19));
  1285.     goto T610;}
  1286. T606:;
  1287.     {object V23;
  1288.     object V24;
  1289.     V23= base[3];
  1290.     V24= car((V23));
  1291. T673:;
  1292.     if(!(endp((V23)))){
  1293.     goto T674;}
  1294.     goto T669;
  1295. T674:;
  1296.     base[5]= cdr((V24));
  1297.     base[6]= caar((V24));
  1298.     base[7]= cadar((V24));
  1299.     vs_top=(vs_base=base+5)+3;
  1300.     L75();
  1301.     vs_top=sup;
  1302.     V23= cdr((V23));
  1303.     V24= car((V23));
  1304.     goto T673;}
  1305. T669:;
  1306.     base[5]= VV[101];
  1307. T689:;
  1308.     if(!(number_compare(base[5],base[4])>=0)){
  1309.     goto T690;}
  1310.     goto T687;
  1311. T690:;
  1312.     princ_char(125,VV[82]);
  1313.     base[5]= one_plus(base[5]);
  1314.     goto T689;
  1315. T687:;
  1316.     base[5]= Cnil;
  1317.     symlispcall_no_event(VV[123],base+5,1);
  1318.     bds_unwind1;
  1319.     return;
  1320. }
  1321.